home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / bin / bluediving / tools / cw_pin.pl < prev    next >
Perl Script  |  2006-01-23  |  1KB  |  30 lines
  1. #!/usr/bin/perl
  2. # Special PIN helper that returns preset passkeys depending on the respective
  3. # Bluetooth device address. This little script was done to be used as a
  4. # replacement bluepin helper when using the 'carwhisperer' program that tries 
  5. # to connect the SCO channels on a given Bluetooth device.
  6. #
  7. # Scripted in July 2005 by Martin Herfurt <martin@trifinite.org>
  8. #
  9.  
  10. # this is the BDADDR of the device for which a passkey is required
  11. $bdaddr = $ARGV[1];
  12.  
  13. undef $pin;
  14.  
  15. # match the address with known ones or return the 'standard pin'
  16. # it's also possible to just specify the first part of the address for
  17. # setting a default passkey for a certain manufacturer
  18.  
  19. SWITCH: for ($bdaddr) {
  20.     /00:02:EE/     && do { $pin="5475"; last;}; # Nokia
  21.     /00:0E:9F/     && do { $pin="1234"; last;}; # Audi UHV
  22.     /00:80:37/     && do { $pin="8761"; last;}; # O'Neill
  23.     /00:0A:94/     && do { $pin="1234"; last;}; # Cellink
  24.     /00:0C:84/     && do { $pin="1234"; last;}; # Eazix
  25.     $pin="0000"; # 0000 is the default passkey in many cases
  26.     }
  27.  
  28. # provide the preset PIN to the device that asks
  29. print "PIN:$pin\n";
  30.